home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_a9x / vt100.adb < prev    next >
Text File  |  1996-01-30  |  655b  |  29 lines
  1. WITH Text_IO;
  2. WITH My_Int_IO;
  3. PACKAGE BODY VT100 IS
  4.  
  5. -- Procedures for drawing pictures on ANSI Terminal Screen
  6.  
  7.  
  8.   PROCEDURE Beep IS
  9.   BEGIN
  10.     Text_IO.Put (Item => ASCII.BEL);
  11.   END Beep;
  12.  
  13.   PROCEDURE ClearScreen IS
  14.   BEGIN
  15.     Text_IO.Put (Item => ASCII.ESC);
  16.     Text_IO.Put (Item => "[2J");
  17.   END ClearScreen;
  18.  
  19.   PROCEDURE MoveCursor (Column : Width; Row : Depth) IS
  20.   BEGIN
  21.     Text_IO.Put (Item => ASCII.ESC);
  22.     Text_IO.Put ("[");
  23.     My_Int_IO.Put (Item => Row, Width => 1);
  24.     Text_IO.Put (Item => ';');
  25.     My_Int_IO.Put (Item => Column, Width => 1);
  26.     Text_IO.Put (Item => 'f');
  27.   END MoveCursor;  
  28.  
  29. END VT100;